﻿Imports Negocio

Public Class frmSincronizacion

    Private Sub btnSincInfoArticulos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSincInfoArticulos.Click
        Dim ejecutor As New EjecutorNegocio
        If ejecutor.EjecutarProcedures("sincronizarArticulos") Then
            MsgBox("Se sincronizó información con éxito")
        Else
            MsgBox("No se realizó la sincronización de Articulos. Intenta nuevamente y si el problema persiste comuniquese con el administrador del sistema")
        End If
    End Sub

    Private Sub brnSincEstados_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles brnSincEstados.Click
        Dim ejecutor As New EjecutorNegocio
        If ejecutor.EjecutarProcedures("sincronizarEstados") Then
            MsgBox("Se sincronizó información con éxito")
        Else
            MsgBox("No se realizó la sincronización de Estados. Intenta nuevamente y si el problema persiste comuniquese con el administrador del sistema")
        End If
    End Sub


    Private Sub btnSincInfoClientes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSincInfoClientes.Click
        Dim ejecutor As New EjecutorNegocio
        If ejecutor.EjecutarProcedures("sincronizarClientes") Then
            MsgBox("Se sincronizó información con éxito")
        Else
            MsgBox("No se realizó la sincronización de Clientes. Intenta nuevamente y si el problema persiste comuniquese con el administrador del sistema")
        End If
    End Sub
End Class